!*******************************************************************
!                                                                  *
      MODULE mtjj_C
!                                                                  *
!   ---------------  SECTION SQJJ  SUBPROGRAM 22  --------------   *
!                                                                  *
!   This module is need for librang90.                             *
!                                                                  *
!   Written by G. Gaigalas,                                        *
!   Transform to fortran 90/95 by G. Gaigalas       December 2012  *
!                                                                  *
!*******************************************************************
!
      IMPLICIT NONE
      INTEGER, DIMENSION(63) :: MT
      DATA MT/00201,10000,10203,20000,00404,20205,00603,00609,30000, &
      10404,10408,10603,10605,30207,10609,10611,10615,40000,20404,   &
      00804,20408,00808,00810,20412,00816,                           &
      00001001,00020603,00020605,00001005,00020607,00001007,         &
      00040209,00020609,00001009,00020611,00001011,00020613,00001013,&
      00020615,00001015,00020617,00001017,00001019,00020621,00001025,&
      00050000,00010800,00030404,00010804,00010806,00030408,         &
      01010808,02010808,00010810,00030412,01010812,02010812,00010814,&
      00030416,00010816,00010818,00010820,00010824/
      END MODULE mtjj_C
